home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / PRG / MacPerl 506 appl folder.sit / MacPerl 506 appl folder / Mac_Perl_506r1m_appl / lib / Cwd.pm < prev    next >
Text File  |  1995-01-29  |  1KB  |  71 lines
  1. package Cwd;
  2. require 5.000;
  3. require Exporter;
  4.  
  5. @ISA = qw(Exporter);
  6. @EXPORT = qw(getcwd fastcwd);
  7. @EXPORT_OK = qw(chdir);
  8.  
  9. # 
  10. # The Apple Macintosh has a fast and canonic `pwd`, which simplifies the code
  11. # a lot. -- Matthias Neeracher <neeri@iis.ee.ethz.ch>
  12. #
  13.  
  14. # By Brandon S. Allbery
  15. #
  16. # Usage: $cwd = getcwd();
  17.  
  18. sub getcwd
  19. {
  20.     my($cwd) = `pwd`;
  21.     
  22.     chomp($cwd);
  23.     
  24.     $cwd;
  25. }
  26.  
  27.  
  28.  
  29. # By John Bazik
  30. #
  31. # Usage: $cwd = &fastcwd;
  32. #
  33. # This is a faster version of getcwd.  It's also more dangerous because
  34. # you might chdir out of a directory that you can't chdir back into.
  35.  
  36. sub fastcwd {
  37.     my($cwd) = `pwd`;
  38.     
  39.     chomp($cwd);
  40.     
  41.     $cwd;
  42. }
  43.  
  44.  
  45. # keeps track of current working directory in PWD environment var
  46. #
  47. # $RCSfile: pwd.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:11 $
  48. #
  49. # $Log:    pwd.pl,v $
  50. #
  51. # Usage:
  52. #    use Cwd 'chdir';
  53. #    chdir $newdir;
  54.  
  55. $chdir_init = 0;
  56.  
  57. sub chdir_init{
  58.     chop($ENV{'PWD'} = `pwd`);
  59.     $chdir_init = 1;
  60. }
  61.  
  62. sub chdir {
  63.     my($newdir) = shift;
  64.     chdir_init() unless $chdir_init;
  65.     return 0 unless (CORE::chdir $newdir);
  66.     chop($ENV{'PWD'} = `pwd`);
  67. }
  68.  
  69. 1;
  70.  
  71.